home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2002 #3 / Amiga Plus CD - 2002 - No. 03.iso / AmigaPlus / Tools / Development / envCPP31 / compilers / vbcc / rexx / lookuperr.rexx
Encoding:
OS/2 REXX Batch file  |  2002-01-01  |  2.1 KB  |  91 lines
  1. /* $VER: 1.1 */
  2.  
  3. options results                             /* enable return codes     */
  4.  
  5. if (left(address(), 6) ~= "GOLDED") then    /* not started by GoldEd ? */
  6.  
  7.     address 'GOLDED.1'
  8.  
  9. 'LOCK CURRENT RELEASE=4'                    /* lock GUI, gain access   */
  10.  
  11. if (RC ~= 0) then
  12.  
  13.     exit
  14.  
  15. options failat 6                            /* ignore warnings         */
  16.  
  17. signal on syntax                            /* ensure clean exit       */
  18.  
  19. /* ---------------------- INSERT YOUR CODE HERE ---------------------- */
  20.  
  21. 'QUERY CAT'
  22.  
  23. if (RESULT = "deutsch") then do
  24.  
  25.     STRING.sEXPLAIN  = "Fehler erklären"
  26.     STRING.sNUMBER   = "Fehlercode:"
  27. end
  28. else do
  29.  
  30.     STRING.sEXPLAIN  = "Explain error"
  31.     STRING.sNUMBER   = "Error code:"
  32. end
  33.  
  34. 'REQUEST LONG TITLE="' || STRING.sEXPLAIN || '" BODY="' || STRING.sNUMBER || '" MIN=0 MAX=255 VAR=NUMBER'
  35.  
  36. if (RC = 0) then
  37.  
  38.     'HELP CATALOG="vbcc:doc/vbccmessages.guide" TOPIC="' || NUMBER || '"'
  39.  
  40. /* ------------------------- END OF YOUR CODE ------------------------ */
  41.  
  42. 'UNLOCK'
  43.  
  44. exit
  45.  
  46. SYNTAX:
  47.  
  48. SAY "Error in line" SIGL ":" ERRORTEXT(RC)
  49.  
  50. 'UNLOCK'
  51.  
  52. /* /// "readoptions" */
  53.  
  54. readoptions: procedure expose CONFIG. STRING. PROJECTNAME OBJFOLDER GSTFILE
  55.  
  56.     /* read compiler-specific options file in project folder (if any exists) */
  57.  
  58.     parse upper arg SOFTWARE
  59.  
  60.     if ((SOFTWARE = "") | (SOFTWARE = "SAS/C") | (SOFTWARE = "SAS/C-GNUMAKE")) then do
  61.  
  62.         if (exists("scoptions")) then do
  63.  
  64.             if open('HANDLE', "scoptions", 'READ') then do
  65.  
  66.                 do until eof('HANDLE')
  67.  
  68.                     DATA = readln('HANDLE')
  69.  
  70.                     if (upper(left(DATA, 12)) = "PROGRAMNAME=") then do
  71.  
  72.                         PROJECTNAME = compress(substr(DATA, 13), '"')
  73.                     end
  74.                     else if (left(DATA, 11) = "OBJECTNAME=") then
  75.  
  76.                         OBJFOLDER = compress(substr(DATA, 12), '"')
  77.  
  78.                     else if (left(DATA, 18) = "GLOBALSYMBOLTABLE=") then
  79.  
  80.                         GSTFILE = compress(substr(DATA, 19), '"')
  81.                 end
  82.  
  83.                 R = close('HANDLE')
  84.             end
  85.         end
  86.     end
  87.  
  88.     return
  89.  
  90. /* /// */
  91.